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FACILITY: 
VAX/VMS AD11-K 1/0 DRIVER 
ABSTRACT: 


DEVICE TABLES AND DRIVER CODE FOR THE AD11-K ANALOGUE 
TO DIGITAL CONVERTER WITH OPTIONAL AM11-K MULTIPLEXER. 


AUTHOR: 
S$. PROGRAMMER, SEPTEMBER 1978. 
MODIFIED BY: 
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«SBTTL FUNCTIONAL DESCRIPTION OF DRIVER 
THE DRIVER SUPPORTS A/D SAMPLING ON GROUPS OF 


CHANNELS VIA QI 
READ REQUESTS. NO EXTERNALLY TRIGGERED SAMPLING (1.E., CLOCK 
OVERFLOW OR SCHMITT TRIGGER) IS SUPPORTED. THE AM1i-K MULTIPLEXER 
MAY BE PRESENT, BUT NO ot RANGING AMPLIFICATION IS 
DONE AT DRIVER LEVEL. E BUILT-IN DAC MAY BE USED FOR TESTING VIA 
A LOOPBACK Q10 FUNC ion’ DEFINED ESPECIALLY FOR THIS DEVICE. 
THE Q10 FUNCTIONS AVAILABLE ARE: 
10$_READVBLK “READ VIRTUAL BLOCK 
1O$"READLBLK “READ LOGICAL BLOCK 
1O0$"READPBLK “READ PHYSICAL BLOCK=108_ LOOPBACK 
10$" LOOPBACK “WRITE DAC, READ RESULTS; REQUIRES 


PHYSICAL 1/0 PRIVILEGE 
THE STANDARD Q10 PARAMETERS ARE: 


P1=BUFFER eoene ss 
peceeecie BYTE COUNT 


PECIFIER OF CHANNELS TO SAMPL 
BIT 0-7/IN te CHANNEL # 
BIT 8-15/TOTAL # OF CALS. i SAMPLE (1-64) 
BIT 16- g3/CH ANNEL INCREMENT (0-6 
BIT 24-31/1 
P4=DAC VALUE USED FOR LOOPBACK ONLY: 
BIT 0-f/ BIT DAC VALUE 
BIT 8-31/1GNORED 
PS,P6 ARE NOT USED 
IN ADDITION TO THE STANDARD STATUS CODES THAT CAN BE RETURNED FOR 
A Q10, THE FOLLOWING DEVICE-SPECIFIC 1/0 STATUS VALUES ARE DEFINED: 
$S$_DATAOVERUN “ERROR BIT SET IN CSR; SAMPLING ABORTED 
WITH LAST GOOD SAMPLE IN BUFFER 
SS$_BADPARAM -INVALID CHANNEL SPECIFIER; ONO SAMPLES TAKEN 
5S$~BUF FEROVF “USER BUFFER OVERRUN; AS MANY CHANNELS AS WILL 


THE SAMPLES ARE RETURNED IN THE CALLER'S Ay PACKED ONE SAMPLE 
PER WORD, BITS O-11. THE BYTE COUNT RETURNED IN THE SECOND WORD OF 
THE 1/0 Peratus BLOCK ALWAYS REFLECTS THE # OF BYTES ACTUALLY FILLED 
wie eat LE DATA. THE NUMBER OF SAMPLES IS ONE HALF THE RETURNED 


EXAMPLE: races THROUGH + INPUTS CONNECTED IN DIFFERENTIAL MODE 
(AD11=K AND AM11-K): 


SWEEPBUF : -BLKW 
NUMINPUT : - LONG 
CHANSPEC: -BYTE 32.2 START WITH CHANNEL 0; 


> SAMPLE CHANNELS 0,2.4,...,62 


$010_S CHAN= x FUNC= =108 READVBLK 
1=SWEEPBUF ,P2=RUMINPUT , P3=CHANSPEC 


ADD 
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-SBTTL MACRO LIBRARY CALLS 


TO DEFINE THEM LOCAL 
THIS DRIVER MUST BE ASSEMBLED WITH A USER LIBRARY TO DEFINE S$XIODEF. 


SXIODEF sEXTENDED Q10 FUNCTIONS.THIS MACRO 
CONTAINS THE DEFINITIONS FOR 
; 10$_LOOPBACK 


. ; Al 
; EXTERNAL SYMBOLS (LIB/LIB): : T) 
. 3 Fi 
SCRBDEF ; CHANNEL REQUEST BLOCK > 

SDDBDEF ;DEVICE DATA BLOCK : 

SIDBOEF ; INTERRUPT DATA BLOCK ° 

1ODEF 31/0 FUNCT DES ° 
SIPLDEF ;HARDWARE IP DEFINITIONS : Ol 

SIRPDEF 31/0 ST PACKET : 

SUCBDEF ;UNIT CONTROL BLOCK r 

SVECDEF SINT Coon VECTOR BLOCK ‘ 

$JIBDEF 3J0B INFORMATION BLOCK : 

| 

; USER DEFINED EXTERNAL SYMBOLS ARE CONTAINED IN A_USER LIBRARY . " 
; THE CONTENTS OF THIS LIBRARY CAN BE MERGED WITH THE SYSTEM LIBRARY | AD | 
; TO ALLOW USER rearent TO USE EXTENDED FUNCTION CODES wITHOUT HAVING - 


AD_| 


ADDRIVER.MAR; 1 


; LOCAL DEFINITIONS: 
; Q10 ARGUMENT LIST OFFSETS: 


: DEVICE PARAMETERS: 


DAC_TIMER=20 
MAX~ INLCHN=63 


MAX NUMCHN=64 
MAX =f NCCHMSOS 
ADC_TIMER=2 


SDEFINI AD 
AD_CSR .BLKW 1 


VIELD AD_CSR,0,<- 
269. M>,- 
< 


> 

AD_DBR .BLKW 1 
AD_DAC .BLKW 1 
SDEFEND AD 


SDEFINI UCB 


-SBTTL LOCAL DEFINITIONS 


: DEVICE REGISTER DEFINITIONS: 


> DEVICE DEPENDENT UCB EXTENSIONS: 
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sFIRST, 

: SECOND, 

: THIRD, 

t FOURTH, 

: FIFTH 

: AND SIXTH PARAMETERS 

520 USEC TIMER FOR DAC SETTLE 
[MAXIMUM INITIAL CHANNEL #, 

> NUMBER OF CHANNELS 

: AND CHANNEL INCREMENT 

[A/D CONVERSION TIMEOUT=2 SEC 


:CONTROL/STATUS REGISTER 


sDEFINE CSR FIELDS: ron" CSR_M_XXX 
yy A/D CONVERS 
SED Blt 


ERNAL START ENABLE 


Co &<mo 
—ma 
» 


‘DAL DATA BUFFER R 
END OF A/D REGISTER DEFNS 
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. =UCBSK_LENGTH STEP 10, STANDARD UCB 
BYTES ASSU MED 
EF | UCBSB_AD_CURCHN .BLKB 1 CURRENT ann ¢ ANNEL # 
$0 EF UCBSB-AD"NUMCHN .BLKB 1 hen TO SAMPLE 
SDEF CB$B8—AD~INCCHN -BLKB EWAN at 
SDEF § UCBSW_AD_CSR Bt 1 ay VE 
VIEL. ,Ocesw_ CSR,1,<- ‘BORROW ON NUSED CSR BIT 
2BFO 0,,M>,- : FOR USER BUFFER OVERRUN 
UCBSK_ADLENGTH=. sLENGTH OF A/D UCB 
SDEFEND UCB ZEND OF UCB EXTENSIONS 
; A/D DRIVER USE OF TEMPORARY IRP STORAGE: 
iRPSL _CHSPEC=IRPSL_MEDIA :CHANNEL SPECIFIER(P3) 


IRPSL_DACVAL=IRPSL_MEDIA+4 OPTIONAL DAC VALUE (P4) 


o2¢902000600690009292020066008% 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Sete ee Fe Se 
p-( 


+ 
+ 


nn" 
~ 


2 


> 
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-SBTTL DRIVER PROLOGUE AND DISPATCH TABLES 


; DRIVER PROLOGUE TABLE: 


DRIVER DISPATCH TABLE: 


DDTAB DDT CREATION MACRO 

VN yan AD,- NAME OF DEVICE 
TART=AD_STARTIO,- ZADDR OF START 1/0 ROUTINE 
UNC TB=AB _FUNCTABLE sADDR OF FDT 


DPTAB = ;DEFINE DRIVER PROLOGUE TABLE: 
END=AD_END,- : END OF DRIVE 
ADAPTER=UBA, = : UNIBUS ADAPTER 
UcBs FE =UCegK AP ENGTH,-: SIZE OF A/D UCB, 
NAME =ADDRIVE ; DRIVER NAME 
DPT_STORE INIT [VALUES TO BE SET ON LOAD 
DPT-STORE UCB. UCBSB_FIPL.B.8 :DEVICE FORK IPL 
DPT“STORE UCB. UCB$B-DIPL.B.22 TAD11 HARDWARE IPL 
DPT-STORE UCB; UCBSL~DEVCHAR,L,- :AD11 DEVICE CHARACTERISTICS: 
<DEVSM_AVE- 3; AVAILABLE 
'DEVSM~1DV- : INPUT DEVICE 
iDEVSM-RTM> > REALTIME DEVICE 
DPT_STORE REINIT :VALUES TO SET ON RELOAD 
DPT~STORE CRB CRBSL_INTD*4,D,~ SINTERRUPT SERVICE ADDR 
DPT_STORE CRB,- ;ADDR OF CONTROLLER 
CRBS$L_INTD+VECSL_INITIAL.- ; INITIALIZATION 
D.AD_CTLINIT 
DPT_STORE CRB,= R OF UNIT 
CR BSL INTD*VECSL_ uniTINIfe - < INITIALIZATION 
DPT_STORE DbB. BDBSL _DDT,D.= ZADDR OF DRIVER 
AD$D : DISPATCH TABLE 
DPT_STORE END SEND DRIVER PROLOGUE 


7 


a a 
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-SBTTL ADI1-K FUNCTIGN DECISION TABLE 


AD11 FUNCTION DECISION TABLE: 


READVBLK> ; AND READ VIRTUAL BLOCK 


AD ~FUNCTABLE : : FUNCTION DECISION TABLE START 
UNCTAB ,- SLEGAL FUNCTIONS: 

<LOOPBACK, = ; LOOPBACK READ FROM DAC 
READPBLK, - ; READ PHYSICAL BLOCK 
READLBLK,= ; READ LOGICAL BLOCK 
READVBLK> ; READ VIRTUAL BLOCK 

FUNCTAB , BUFFERED 1/0 FUNCTIONS: 
<LOOPBACK,- ; LOOPBACK READ FROM DAC 
READPBLK,= ; READ PHYSICAL BLOCK 
READLBLK,= ; READ LOGICAL BLOCK 
READVBLK> ; READ VIRTUAL BLOCK 

FUNCTAB = [PREPROCESSING ROUTINES | 
AD_READ,- 3CALL SINGLE PREPROCESSOR FOR: | 
<LOOPBACK,=- ; LOOPBACK READ FROM DAC | 
READPBLK, = ; READ PHYSICAL BLOCK 
READLBLK,= ; READ LOGICAL BLOCK 


a 


M 
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~SBTTL AD READ: READ FUNCTION PROCESSING 
AD_READ = READ FUNCTION PREPROCESSING 


THIS ROUTINE IS CALLED FROM THE ee ES Dd 


ECISION TABLE DISPATCHER 
190 roti A READ PHYSICAL, READ LOGICAL, READ , 


IRTUAL, OR LOOPBACK 


NCTION. | ; 
AD_READ FIRST VERIFIES THE CALLER'S PARAMETERS, TERMINAT NG THE ; 
REQUEST WITH IMMEDIATE SUCCESS OR ERROR IF NECESSARY. Ps : 
4 ARE STORED IN THE IRP, A SYSTEM BUFFER IS ALLOCATED ANDY” : 
ITS ADDRESS IS SAVED IN THE IRP. THE CALLER'S QUOTA IS pUPDATED, | : 
AND THE READ REQUEST IS QUEUED TO THE DRIVER FOR STARTU : 
INPUTS: : 
RO,R1,R2 = SCRATCH | : 
R3 = [RP ADDRESS : 

R&4 = ADDR OF PCB Af OR, CURRENT PROCESS 


RS = DEVICE UCB A 
RESS 


R8 = FDT 4h alte ADDR 
R9-R11 = SCRA 
AP = ADDR OF FUNCTION PARAMETER LIST 


OUTPUTS: 
RO, 4 » * = -PEstTaoree 


R3-R RESERVED 

Tape "tHSP PECCR ) = CHANNEL SPECIFIER (P3) 
IRPSL~DACVAL(R3) = OPTIONAL DAC VALUE (P4) 
IRPSL~SVAPTE(R3) = ADDR OF ALLOCATED. SYSTEM BUFFER 
IRP$W~BOFF(R3) = REQUESTED BYTE COUNT 


SYSTEM BUFFER: 

LONGWD O/ADDR OF START OF DATA=BUFF ADDR+12 
LONGWD 1/ADDR OF USER BUFF 

LONGWD 2/DATA STRUCTURE BOOKKEEPING 


Tere Tee ee eee eee Tere rere ree rere rere Tele re rere re rere rere rere rere ree 
t 
@ 
io 
“un 
> 
4 
J 


-ENABL LSB 
AD_READ: + i FUNCTION “a 

MOVZWL P2(AP),R1 ;GET USER BYTE COUN 

BEQL 10$ ;BRANCH IF READ OF Q BYTES 
;_ (=INSTANT SUCCESS) 

MOVZWL #SS$_BADPARAM,RO ASSUME CHANNEL SPEC ERROR 

MOVAL P3(AP),R2 :GET_ADDR OF CHANNEL SPEC 

CMPB (R2)+, aMAX_ INLCHN : INITIAL CHAN # TOO LARGE? 

BGTRU 20% {BRANCH | IF SO 

TSTB (R2) # CHANNELS = 0? 

BEQL 10$ ;BRANCH IF $0 (SUCCESS) 

CMPB (R2)+,#MAX_NUMCHN aC HANNELS TO SAMPLE TOO LARGE? 

BGTRU 20% BRAN 


4 IF S 
CMPB (R2) ,#MAX_INCCHN CHANNEL INCREMENT TOO LARGE? 


N 
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BGTRU 208 ; BRANCH iF $0 | 
MOVQ P3(AP),IRPSL_CHSPEC(R3) ;STORE P3 AND P4 (OPTIONAL DAC) 
: IN IRP UNTIL REQUEST EXECUTION 
MOVL PICA :GET ADDR OF USER BUFFER 
JSB CH EMESRE RDCHK :VERIFY THAT CALLER HAS 
: WRITE ACCESS TO BUFFER 
PUSHR #*M<RO,R3> SAVE USER BUFF ADDR, IRP ADD 
ADDL #12,R1 [ADD 12 BYTES TO REQUESTED BUFF 
: SIZE FOR BUFF HEADER 
JSB G*EXESBUFFRQUOTA :VERIFY BUFFER SPACE LEFT 
: IN CALLER'S QUOTA 
BLBC ~—_ RO, 308 :BRANCH IF INSUFFICIENT QUOTA 
JSB G*EXESALLOCBUF SALLOCATE A SYSTEM BUFFER 
BLBC :BRANCH IF NONE AVAILABLE 
POPR #*M<RO TRESTORE USER BUFFER, IRP ADDR | 
MOVL R2. Tag *SVAPTE(R3) i SAVE ADDR OF SYSTEM BUFFER 
MOVW - LRPSU “BOF F (R3) D REQUESTED BYTE COUNT 
MOVZWL CONVERT TO LONGWORD 
MOVL mat JIB(R4) RG :GET JOB INFORMATION BLOCK {ADDRESS 
SUBL R1,JI6$L _BYTCNT(R4) ;DEDUCT REQUESTED BYTE COUN 
: FROM PROCESS’ QUO A. 
MOVAB 12(R2),(R2)+ ;SAVE ADDR OF START OF USER DAT 
IN 1ST LONGWD OF SYSTER BUFFER 
MOVL _—RO, (R2) : SAVE USER BUFFER ADDR IN 
JMP G*EXESQIODRVPKT SQUEUE 1/0 PKT TO DRIVER 
4 | 
: COME HERE IF USER REQUESTED READ OF 0 BYTES OR 0 CHANNELS. 
> THIS IS ALWAYS SUCCESSFUL AND DOES NO DEVICE | 
10$:  MOVZWL #SS$_NORMAL,RO 7SET NORMAL COMPLETION STATUS 
20$: JMP G*EXESF INISHIOC sCOMPLETE 1/0 REQUEST 


| 
; COME HERE TO ABORT 1/0 REQUEST WITH EXCEPTION STATUS IN RO: | 
| 
} 


30$:  POPR #*M<R2,R3> :CLEAR BUFFER ADDR; RESTORE IRP 
JMP G*EXESABORTIO [COMPLETE 1/0 REQUEST 


DSABL LSB | 


i —$_—_—_ —_— — 
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~SBTTL AD _STARTIO: PERFORM A/D CONVERSIONS 


;¢ 

; AD STARTIO = START 1/0 OPERATION ON AD11=-K A/D CONVERTER. 

: THIS ROUTINE IS ENTERED WHEN THE A ASSOCIATED UNIT IS IDLE AND A 
; PACKET IS AVAILABLE FOR PROCESSING. 

; TO PREPARE FOR SAMPLING, AD_STARTIO PERFORMS THESE STEPS: 

: 1. SET UP UCB WITH CHANNEL SPECIFIER AND ADDRESS IN SYSTEM 

; BUFFER TO HOLD FIRS L 

; IF LOOPBACK WAS SPECIFIED, THE DAC IS SET WITH THE CALLER- 
; * SPECIFIED VALUE. 

: THE DRIVER THEN LOOPS FROM AD NXTSAMPLE ye AD ENDSAMPLE 

; COLLECTING SAMPLES UNTIL ALL SAMPLES HAVE BEEN COLLECTED 

: OR AN ERROR O CCURS. AN INTERRUPT IS RECEIVED FOR EACH SAMPLE, 
; eur TO SAVE T THE DRIVER NEVER FORKS UNTIL TIME T 

: COMPLETE THE 10 0 REQUES? T. 

> INPUTS: 

; R3 = ADDR OF IRP 

: R5 = ADDR OF DEVICE UNIT UCB 

: OUTPUTS: 

: RO,R1,R2 = DESTROYED 

; OTHER REGISTERS RARE PRESERVED 


-ENABL LSB 
AD_STARTIO: START NEXT QI10 
MOVL IRP$L_CHSPEC(R3) ,- COPY CHANNEL SPEC FROM 


ucB CURCH : 1 
MOVL @IRPSC_SVAPTE(R3),=- :SET ADDR OF START DATA 


MOVL uc jGET CRB ADDRESS, 
VL CRESC INTDeVECSL. IDB(R4S,R4 ; THEN CSR ADDRESS 
BICB3 tet OSM_FCODE eet THE 1/0 
TRPSU FURC(R 5 k0 : FUNCTION CODE 
cmpB—SséRO, #108 LOOPBACK S LOOPBACK? 
BNEQ AD_NXTSAMPLE ;BRANCH IF NOT 
MOVZBW 1RPSt DACVAL(R3),= [SET DAC VALUE IN 
DAT(R4) > DAC BUFFER REGISTER 
MF PR SpPRS ICR, RI [GET CURRENT INTERVAL COUNTER (USEC) 
ADDL #DAC_TIMER.R ; *DAC SETTLE TIME IN USEC 
BLSS 108 ~ SBRANCH IF COUNTER DOESN'T 
: OVERFLOW 
MOVAW -10000(R1),R1 TELSE CALCULATE COUNTER 
: FOR NEXT INTERVAL 
10$: MFPR  S*#PRS_ICR,RO TREAD INTERVAL COUNTER NOW 
ROAR Ri” SREACHED SETTLE TIME YET? 
10$ ‘BRANCH IF NOT 


oF | 


eum — 
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AD_NXTSAMPLE : ART NEXT SAMPLE 
MOVZBW #AD_CSR_M_IE!AD_CSR_M_GO, RO “SET INTERRUPT ENABLE AND 
START nD ¢ ONVER SION , 
INSV UCBSB_AD_CURCHN(RS) .~ SET MUX ‘ons 
DSBINT :DISABLE INTERRUPTS (IPL=IPLSPOWER) . 
BBSC #UCBSV_POW ANCH IF POWER FAILURE be 
al ucesy_S! sTsthos, AD LPOUERFAIL AND CLEAR POWER FAIL SIGNAL ce 
WFIKPCH ADT TIREOUT # TIMER WAIT FOR INTERRUPT, OR TIMEOUT a 
MOV DICSR(RG) “UcBSO LAD_CSR(RS) ;SAVE CSR IN UCB os 
BLSS BRANCH IF ERROR . 
MOVW = AD ~baRiRe) @ucesL =SHAPTEIRGYcHER pur en ste INTO i 
ADDL -UCBSL_SVAPTE(RS) :STEP BUFFER POINTER | ‘¢ 
SUBL CBSW-BCNT (RS) ;DECREASE # BYTES LEFT_IN REQUEST | :* 
DECB te, AD “HUMCHNGRS) :DECR # CHANNELS LEFT TO SAMPLE | ‘¢ 
BEQL AD DONE ~ ;BRANCH IF _NONE | ce 
CMPW =: UCB Sw BCNT(RS), #2 sAT LEAST 2 BYTES LEFT IN BUFFER? °° 
BLSSU AD BUFF EROVF ;BRANCH IF NOT | a 
BICw CBSW_CSR_M_BFO,- sELSE CLEAR BUFFER OVERRUN | io 
UCBSW_AD_CSRTRS) ; BIT IN CSR COPY | :* 
ADDB UCBSBTAD-INCCHN(RS),- NEXT CHANNEL @# = | :* 
ucese AD~CURCHN(RS) i CURRENT CHANNEL + INCREMENT | :* 
BICB = #*C<MAX_RUMCHN-1>,~ ; MODULO MAXIMUM | ‘* 
UCBSB_AD_ CURCHNCRS) : CHANNEL # | ; 
AD_ENDSAMPLE : ;THIS SAMPLE COMPLETE 
BRB AD_NXTSAMPLE :GO START NEXT SAMPLE 


-DSABL LSB | 


RES ie. cab inn nL NEEL S RO SPD ae REE aE ERO Se Nr OB UTE 
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-SBTTL = 1/0 REQUEST COMPLETION 


; COME HERE TO COMPLETE 1/0 REQUEST WITH NORMAL OR ERROR STATUS. 
: USER BUFFER OVERRUN, 1.£., NO MORE SAMPLES CAN BE COLLECTED: 


-ENABL LSB | 
AD_BUF FEROVE : ; | 
BISW  #UCBSW_CSR_M_BFO,- :SET BUFFER OVERRUN BIT | 
UCBSW_AD stSRTRS : IN CSR COPY | 
| 
: CSR ERROR BIT WAS SET: 
; | 
AD_CSRERROR: , 
TSTW — AD_DBR(R4) SCLEAR ERR 
BRB AD "DONE JOIN cONRON 1/0 COMPLETION 


; DEVICE TIMED OUT DUE TO 
; POWER FAILURE. BOTH CAU 


ITHER A REAL TIMEOUT OR TO A 
ES ARE HANDLED THE SAME. 


CL AD_CSR(R4) SCLEAR INTERRUPT yg F 
TST AD_DBR(R4) ; PENDING CONVERSION INT, OR ERROR 
SETIPL UCBSB_FIPL(RS) 4°57) PRIORITY TO DEVICE LEVEL 
BRB 10$ :JOIN COMMON CODE TO 
; TERMINATE REQUEST 


; POWER FAILURE DETECTED WHILE ATTEMPTING TO INITIATE A READ OR 
; LOOPBACK REQUEST. TERMINATE REQUEST THE SAME AS IF IT OCCURRED 


; DURING THE Q10. 


AD_POWERFAIL: : 
ENBIN SLOWER IPL BACK TO FORK IPL 


T 
10$: MOVZWL 9 #SS$_TIMEOUT,RO 3SET STATUS TO TIMED OUT 
BRB 208 {JOIN COMMON CODE TO TERMINATE 


; NORMAL STATUS, CANCEL 1/0, AND GENERAL 1/0 REQUEST COMPLETION: 


AD_DONE : ; 
CLRW = AD_CSR(R4) [CLEAR INTERRUPT ENABLE 
1OF ORK {REQUEST RESUMPTION AS FORK PROCESS 
MOVZWL #SS$_DATAOVERUN,RO TASSUME CSR ERR 
BBS [BRANCH IF SO 


#aD_TSR_V_ERR,= 
UCBSW_AB_CSR(RS),208 —; 
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ADDRIVER.MAR; 1 
MOVZWL ess 8 BUF FEROVE RO ; ASSUME BUFFER OVERRUN 
BBS Bf0,- ;BRANCH | | ++ 
ucB Xb se ehteS) (208 Fu 
MOVZWL aSS MAL ,RO 7ELSE, STATUS IS NORMAL 
208 SuBW3 yeese -BENT(R ), iE # TES. REQU STED 
IRP$SW-BCNT(R BR R1 syits RRED 
INSV R1,#16,816, : oF BT : NPERRED CA 
CLRL R} :CLEAR SECOND 1/0 STATUS LONGWD 


;REQUEST 1/0 COMPLETION 


2 


o 
Oo 


: 
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.SBTTL AD_INTERRUPT: AD11-K A/D CONVERTER INTERRUPT SERVICE 
‘Av INTERRUPT = A/D CONVERTER INTERRUPT SERVICE 


THIS ROUTINE IS ENTERED vis A JSB_ INSTRUCTION WHEN AN 
1 ay od OCCURS ON AN AD11 A/D CONVERTER. INTERRUPT SER 


VICE 
TS THE ADDRESS OF THE UCB OF THE INTERRUPTING DEVICE, RESTORES 
THE REMAINING CONTEXT OF THE DRIVER FORK PROCESS WHICH INITIATED 
THE DEVICE ACTIVITY, AND CALLS THE DRIVER FORK PROCESS. 
INPUTS: 
ALL GENERAL REGISTERS = RANDOM 
SP/ INTERRUPT STACK 
O(SP) = ADDR OF IDB ADDR | 
4(SP) = SAVED 
B(SP) = SAVED R1 | 
12(SP) = SAVED R 
16(SP) = SAVED R 
O(SP) = SAVED R4 
4(SP) = SAVED RS 
S(SB) = = SAVED PC 
(SP) = SAVED PSL 
IPL/ HARDWARE DEVICE LEVEL 


OUTPUTS AT CALL TO DRIVER FORK: 


R3 = RESTORED FROM DRIVER FORK PROCESS (IRP ADDR) 

R4 = RESTORED FROM DRIVER FORK PROCESS (CSR ADDR) 
RS = UCB ADDR 

STACK IS SAME AS ABOVE, BUT IDB POINTER POPPED 
IPL/ HARDWARE DEVICE LEVEL 


-ENABL LSB 
AD_INTERRUPT: ;A/D CONVERTER INTERRUPT SERVICE 
MOVL a(SP) [GET IDB ADDR | 
mova 1DB$ *ESRRS), RG :GET DEVICE CSR AND UCB ADDR 
BBCC [BRANCH IF INT UNEXPECTED, 
UCBSW_ST 55) AD. UNSOL ; AND CLEAR EXPECTED BIT 
MOVL  UCBSL-FR3(R5) :RESTORE REMAINING DRIVER 
CONTEXT: R3; (R4 ALREADY SET) 
JSB8 @UCBSL_FPC(RS) ;CALL DRIVER FORK PROCESS 
10S: mova (SP)+,R RESTORE REGISTERS 
mova (SP)+.R : 
mova (SP) +.RG ; 
AD_UNSOL : SHANDLE UNSOLICITED INTERRUPT 
CLRW = AD_CSR(R4 [DISMISS SPURIOUS INTERRUPT 
TSTW  ADDBR(R4 SREAD DATA BUFFER TO CLEAR ERROR 
BRB 108 [JOIN INTERRUPT RESTORE 


-DSABL LSB 


ADDRIVER.MAR; 1 16-SEP-1984 17:04:08.9% Page 16 


~SBTTL AD _CTLINIT: AD11-K CONTROLLER INITIALIZATION 
AD_CTLINIT = AD11=K CONTROLLER INITIALIZATION 
THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER 
FAILURE. 


o 


ALL REGISTERS PRESERVED 


; THE CSR_IS CL LEARED TO DISABLE INTERRUPTS. | THIS WILL FORCE THE 
i LAST SAMPLE CIF ONE 1S IN PROGRESS) TO Time OUT IN CASE INITIALIZATION : 
; IS THE RESULT OF A POWER FAILURE. THE TIMEOUT WILL OCCUR IN 0- : 
; SECONDS. :. 
i THE DATA BUFFER REGISTER 1S READ TO CLEAR A PENDING CONVERSION ; 
; INTERRUPT, OR ERROR FOR DEVICE INITIALIZATION. 
; INPUTS: 
; R4 = AD11 CSR ADDRESS | _ 
; RS = IDB ADDRESS OF DEVICE UNIT | : 
; R6 = ADDR OF DDB 
RB = ADDR OF CRB ; 
; OUTPUTS : 


AD_CTLINIT: 


CLRW AD_CSR(R4) ICLEAR CSR (IE IN PARTICULAR) 
TSTW = ADDBR(R4) [CLEAR ANY PENDING CONVERSION, 
: INTERRUPT, OR ERROR 
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~SBTTL AD_UNITINIT: AD11=K UNIT INITIALIZATION 


" AD_UNITINIT = AD11=<K UNIT INITIALIZATION 
: THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER 
+ FAILURE, THE UCB AND IDB ARE INITIALIZED. 
> INPUTS: 
; RS = ADDRESS OF DEVICE UCB 
: OUTPUTS | 
; RO = IDB ADDRESS | 
; OTHER REGISTERS ARE PRESERVED | 
; ye _STS(R5), ONLINE BIT IS SET | 
; DBSL-OWNER(RO) = ADDRESS OF OWNING UCB 
AD_UNITINIT : 
1S #UCBSM_ONLINE,- ;SET UNIT ONLINE 
UCBSW_STS(R5) 

MOVL  UCBSL~CRB(R5) ,RO IGET CRB ADDRESS | 

MOVL  CRBSL-INTD+VEC$L_IDB(RO) RO :GET IDB ADDR 

MOVL RS, 1DB$L_OWNER (RO) :SET UCB ADDR OF OWNING UN,T 


| 
. | 
| 


AD_END: SEND OF DRIVER LABEL 
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